From cbeab2d8c18307ea012159a46b3cee4e20e36d45 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Dec 2008 19:28:22 +0000 Subject: [PATCH] (dired-readin): Inhibit modification hooks. --- lisp/dired.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/dired.el b/lisp/dired.el index e0e72a1847e..f23c109af1c 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -858,7 +858,11 @@ wildcards, erases the buffer, and builds the subdir-alist anew ;; default-directory and dired-actual-switches must be buffer-local ;; and initialized by now. - (let (dirname) + (let (dirname + ;; This makes readin much much faster. + ;; In particular, it prevents the font lock hook from running + ;; until the directory is all read in. + (inhibit-modification-hooks t)) (if (consp dired-directory) (setq dirname (car dired-directory)) (setq dirname dired-directory)) -- 2.30.2